
  10 NT=1;BC=253;FC=129;S=0;L=25;N=255;Z=RND (2);IF Z=2P=1;GOTO 20
  15 P=2
  20 CLEAR ;C=-50;FOR A=1TO 6;CX=C;CY=40;PRINT #1,A;C=C+20;NEXT A;F=-70;GOSUB 400;F=69;GOSUB 400;C=29;D=-50
  30 &(21)=200;&(23)=N;X=252;FOR A=1TO 6;FOR B=1TO 6;BOX D,C,5,5,3;BOX D,C,1,5,3;BOX D,C,5,1,3;D=D+20
  35 X=X-7;&(19)=X;&(18)=X;&(20)=X;NEXT B;C=C-11;D=D-120;NEXT A;&(23)=0;@(38)=0;@(37)=0
  40 XY=8900;LINE -60,-31,1;LINE 60,-31,1;LINE 60,34,1;LINE -60,34,1;FOR A=1TO 36;@(A)=4;NEXT A
  44 &(21)=0;FOR M=1TO 36;IF @(M)=0NEXT M;CY=-36;CX=-69;PRINT "PLY.1 ",#1,@(37),#1," ** PLY.2 ",#1,@(38);STOP
  46 IF P=1P=2;T=17;S=38;GOTO 50
  48 P=1;T=16;S=37
  50 BOX 0,-36,160,9,2;CY=-36;PRINT "    PLAYER ",#1,"#",#1,P,#1," SCORE:",#1,@(S);C=29;E=-50;GOTO 450
  52 @(S)=@(S)+L;L=25;RETURN 
  56 CY=Y;CX=X;PRINT "*";BOX X-1,Y,3,3,2;&(21)=N;BOX X,Y,6,6,2;FOR Z=NTO 0STEP -3;BC=FC;MU=O;&(23)=Z;BC=253;NEXT Z
  60 Z=RND (4);IF Z=1I=-11;K=-60;IF PX(X,Y-5)GOTO 60
  61 IF Z=2I=11;K=60;IF PX(X,Y+5)GOTO 60
  62 IF Z=3J=-20;K=-80;IF PX(X-10,Y)GOTO 60
  63 IF Z=4J=20;K=80;IF PX(X+10,Y)GOTO 60
  65 &(21)=0;IF Z>2GOTO 82
  76 FOR U=YTO KSTEP I;IF (U<-26)+(U>29)LINE X,Y,4=XY;W=XY;LINE X,U,3;XY=W;LINE X,U,3;GOTO 44
  78 IF PX(X,U)Q=X;R=U;GOSUB 600;Y=R;GOTO 510
  80 NEXT U
  82 FOR U=XTO KSTEP J;IF (U<-50)+(U>50)LINE X,Y,4=XY;W=XY;LINE U,Y,3;XY=W;LINE U,Y,3;GOTO 44
  84 IF PX(U,Y)Q=U;R=Y;GOSUB 600;X=Q;GOTO 510
  85 NEXT U
 400 C=29;FOR A=1TO 6;CY=C;CX=F;PRINT #1,A;C=C-11;NEXT A;RETURN 
 450 FOR A=1TO 6;BOX 0,C,109,7,3;FOR Z=1TO 25;IF &(T)=16GOTO 470
 460 NEXT Z;BOX 0,C,109,7,3;C=C-11;NEXT A;C=29;GOTO 450
 470 FOR W=1TO 300;NEXT W;FOR B=1TO 6;BOX E,2,7,62,3;FOR Z=1TO 25;IF &(T)=16F=A×6-(6-B);GOTO 485
 480 NEXT Z;BOX E,2,7,62,3;E=E+20;NEXT B;E=-50;GOTO 470
 485 BOX E,2,7,62,3;BOX 0,C,109,7,3;IF @(F)=0CY=-36;CX=-53;PRINT "    ILLEGAL MOVE   ";L=-25;GOSUB 52;GOTO 46
 490 X=-70+(B×20);Y=40-(A×11)
 510 @(F)=@(F)-1;IF @(F)=0GOSUB 52;GOTO 56
 520 IF @(F)=3G=X+1;H=Y+1
 530 IF @(F)=2G=X-1;H=Y-1
 540 IF @(F)=1G=X+1;H=Y-1
 550 &(21)=90;&(19)=25;BOX G,H,3,3,2;&(21)=0;BOX X,Y,1,1,1;&(21)=90;GOSUB 52;&(19)=0;GOTO 44
 600 LINE X,Y,4=XY;W=XY;LINE Q,R,3;&(21)=N;&(23)=N;BC=FC;XY=W;LINE Q,R,3;&(21)=0;&(23)=0;BC=253
 610 A=(42-R)÷11;B=ABS(-70-Q)÷20;F=A×6-(6-B);IF @(F)=1L=50;GOSUB 52
 620 RETURN 
:RETURN ;RUN 
>